home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / tex / mf / inputs / misc / outlines.mf < prev    next >
Text File  |  1994-05-17  |  2KB  |  49 lines
  1. % This is OUTLINES.MF as of 5/7/89
  2. % Outline routine - by Doug Henderson
  3. % Minor enhancements for ww laser printers and MFT compatibility Don Hosek
  4.  
  5. boolean outlining;
  6. % only outline when told to explicitly with |outlining:=true;|
  7. outlining:=false;
  8.  
  9. message"Loading the font outline macros.";
  10. def outline =
  11. if outlining:
  12.  cull currentpicture keeping (1,infinity);
  13.  picture v; v:=currentpicture;
  14.  cull currentpicture keeping (1,1) withweight 3;
  15.  addto currentpicture also v - v shifted right
  16.   -v shifted left - v shifted up - v shifted down;
  17.  cull currentpicture keeping (1,4);
  18.  % next code for super hi-res typesetters such         \]
  19.  % as the Linotronic 100 at 1270dpi and the PTI 2000dpi    \]
  20.  % replacing pixel x with the following pattern of       \]
  21.  % pixels in the currentpicture:                \]
  22.  % \tt\quad  XXX                       \]
  23.  % \tt\quad  XxX                       \]
  24.  % \tt\quad  XXX                       \]
  25.  % to create darker lines for outlines             \]
  26.  if (pixels_per_inch >= 1270) :
  27.   v:=currentpicture;
  28.   addto currentpicture also v shifted right +
  29.    v shifted left + v shifted up + v shifted down;
  30.   cullit;
  31.   % and the next code is for medium resolution printers such \]
  32.   % as the Varityper(600dpi) and the APSu5(723dpi) or     \]
  33.   % write-white laser printers such as the Xerox 8790     \]
  34.   % replacing pixel x with:                  \]
  35.   % \tt\quad  XX                       \]
  36.   % \tt\quad  Xx                       \]
  37.   % to create slightly darker lines for outlines       \]
  38.  elseif (pixels_per_inch >= 600)
  39.    or (write_white=1) : % Say {\tt MF \mode=rcc; write_white:=1 input fn}
  40.   addto currentpicture also currentpicture shifted left;
  41.   addto currentpicture also currentpicture shifted up;
  42.  fi
  43.  %% showit;
  44. fi
  45. enddef;
  46. extra_endchar:=extra_endchar & "outline;";
  47.  
  48. if unknown write_white: write_white:=0; fi
  49.